home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
G-Games
/
(c)gf.d64
/
threedox.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
6KB
|
164 lines
10 POKE53280,9:POKE53281,7
20 PRINT"":PRINTCHR$(14)
100 REM ***** THREEDOX ****************
110 REM ***** COMMODORE 64 ************
120 REM ***** D.HALL 4/12/82 **********
1000 PRINT"[147]";:FORI=1TO39:PRINT"[255]";:NEXT:PRINT:FORI=1TO22
1005 PRINT"[255]";SPC(37);"[255]":NEXT
1010 FORI=1TO39:PRINT"[255]";:NEXT:PRINT"[212][200][210][197][197][196][207][216]
1020 [153]"ATN CHR$ATN(null)VALCLOSE(null)ASCCLOSE(null)(null)(null)CHR$LEFT$(null)(null)CLOSEATN(null)STR$CLOSELEN(null)(null)(null)(null)VAL(null)CLOSECLOSE
1030 PRINT"[201][206][160][212][200][210][197][197] [196][201][205][197][206][211][201][207][206][211][160][201][206][160][193][160][195][213][194][197][160]
1035 [153]"4*4*4":[153]""
1036 [153]"ATN(null)(null) (null)(null)(null)CLOSELEFT$ATN(null)VALCLOSE(null)(null)CLOSESTR$(null)CLOSERIGHT$(null)CLOSEASCRIGHT$(null)(null)CLOSEATN
1037 PRINT"[195][207][205][208][204][197][212][197][160][210][207][215],[195][207][204][213][205][206][160][207][210] [196][201][193][199][207][206][193][204]
1038 [153]"(null)RIGHT$(null)LEFT$CLOSE(null)'(null),RIGHT$(null)CLOSEATN(null)(null)CLOSESTR$RIGHT$(null)VAL(null)(null)RIGHT$(null)(null)!!!!
1040 PRINT"[196][207] [217][207][213][160][206][197][197][196][160][201][206][211][212][210][213][195][212][201][207][206][211]";:INPUTA$:IFMID$(A$,1,1)="Y"THEN1100
1050 IFMID$(A$,1,1)="N"THEN1200
1060 PRINT"[208][204][197][193][211][197][160][212][217][208][197][160][217][197][211][160][207][210][160][206][207][145][145][145][145]":GOTO1040
1100 PRINT"[147]INSTRUCTIONS"
1110 PRINT"[201]'[205][160][207][206][204][217][160][193] [204][201][212][212][204][197][160][195][207][205][208][213][212][197][210][160][211][207][160][201]
1120 [153]"(null)RIGHT$CHR$LEFT$(null)CLOSE(null)VALVAL(null)CLOSEATNCLOSE(null)RIGHT$(null)(null)(null)VALCLOSE(null)(null)(null)(null) .(null)(null)CLOSE(null)(null)(null)VAL(null)
1130 PRINT"[193][210][197][160][211][200][207][215][206] [193][211][160][193][160][212][200][210][197][197][160][196][201][199][201][212][160][206]O.XYZ:-
1131 [153]"X=PEEK(null)ATN(null)STR$,Y=(null)(null)(null)CLOSEATN(null)STR$CLOSEZ=LEN(null)(null)(null)(null)(null)
1185 PRINT"[202][213][211][212][160][212][217][208][197][160][201][206][160][212][200][197][160][201][206][198][207][210][205][193][212][201][207][206]
1186 [153]"ATN(null)(null)VALSTR$CLOSEASC(null)(null)CLOSEATN(null)STR$CLOSELEFT$RIGHT$(null)CLOSERETURN ASC(null)(null)CLOSE(null)(null)(null)(null)
1187 PRINT"[205][207][214][197][211]:[193][212][160][212][200][197][160][197][206][196][160][200][201][212][160][212][200][197][160]'S' [212][207][160][211][212][207][208]
1195 [153]"HIT ANY KEY WHEN READY"
1196 [161]A$:[139]A$[178]""[167]1196
1197 [153]"LOAD";
1200 C$[178]" X O# *":W[178]23:[134]X(64),L(76),M1%(76),M2%(76),M3%(76),M4%(76),Y(15)
1220 [153]"LOAD":[129]B[178]1[164]4:[141]4000:[130]
1230 [150][165]L(A)[178]X(M1%(A))[170]X(M2%(A))[170]X(M3%(A))[170]X(M4%(A))
1240 [150][165]M(A)[178]A[170]110[170]6[172][181]((A[171]1)[173]4)[170]60[172][181]((A[171]1)[173]16)
1250 [129]I[178]0[164]15:[135] Y(I):[130]:[129]J[178]1[164]76:[135]M1%(J),M2%(J),M3%(J)
1255 [135]M4%(J):[130]
1270 [141]12000
1275 [153]"DO YOU WANT TO":[153][163]W);"GO FIRST":[153][163]W);:[133]A$:[139][202](A$,1,1)[178]"Y"[167]1340K
1280 [139][202](A$,1,1)[178]"N"[167]1500
1290 [137]1270
1330 [141]11020
1340 [141]8000:[141]12000:[141]3000
1450 M[178]16[172](B[171]1)[170]4[172](R[171]1)[170]C:[139]X(M)[178]0[167]1490
1460 [141]12000:[153]"THAT SQUARE'S":[153][163]W);"FULL,TRY AGAIN":[137]1330
1490 X(M)[178]1:[141]11000
1500 [141]13000:[141]15000:[141]2340:S[178]0:T[178]0:[129]I[178]1[164]76:[139]L(I)[179][177]4[167]1610
1540 [141]12000:[153]"CONGRATS!!WAIT":[153][163]W);"YOU WIN"
1545 J[178]1:[137]14000
1610 [139]L(I)[179][177]15[167]1630
1620 S[178]I
1630 [139]L(I)[177][179]3[167]1650
1640 T[178]I
1650 [130]:[139]S[178]0[167]1750
1670 I[178]S:M[178]M1%(I):[139]X(M)[178]0[167]1710
1672 M[178]M2%(I):[139]X(M)[178]0[167]1710
1674 M[178]M3%(I):[139]X(M)[178]0[167]1710
1676 M[178]M4%(I)
1710 X(M)[178]5:[141]13000:[153]"I MOVE TO";[165]M(M):[153][163]W);"AND WIN"
1720 J[178]5:[137]14000
1750 [139]T[178]0[167]2070
1760 I[178]T:M[178]M1%(I):[139]X(M)[178]0[167]1800
1762 M[178]M2%(I):[139]X(M)[178]0[167]1800
1764 M[178]M3%(I):[139]X(M)[178]0[167]1800
1766 M[178]M4%(I)
1800 X(M)[178]5:[141]13000:[153]"NICE TRY":[153][163]W);"I MOVE TO";[165]M(M):[137]1330
1840 [129]I[178]1[164]76:L[178][165]L(I):[139][181](L)[179][177]2[167]1920
1870 [139]L[177]2[167]2780
1890 Q[178]M1%(I):[139]X(Q)[178]0[167]X(Q)[178].125
1892 Q[178]M2%(I):[139]X(Q)[178]0[167]X(Q)[178].125
1894 Q[178]M3%(I):[139]X(Q)[178]0[167]X(Q)[178].125
1896 Q[178]M4%(I):[139]X(Q)[178]0[167]X(Q)[178].125
1920 [130]
1930 [141]2340:[129]I[178]1[164]76:[139]L(I)[178].5[167]2880
1960 [139]L(I)[178]1.375[167]2880
1970 [130]:[137]2460
1990 [129]Z[178]0[164]15:[139]X(Y(Z))[178]0[167]2030
2010 [130]:[137]2380
2030 M[178]Y(Z):X(M)[178]5:[141]13000:[153]"I MOVE TO";[165]M(M):[137]1330
2070 [129]I[178]1[164]76:L[178][165]L(I):[139][181](L)[179][177]10[167]2150
2100 [139]L[177]10[167]2780
2110 [139]X(M1%(I))[178]0[167]X(M1%(I))[178].125
2112 [139]X(M2%(I))[178]0[167]X(M2%(I))[178].125
2114 [139]X(M3%(I))[178]0[167]X(M3%(I))[178].125
2116 [139]X(M4%(I))[178]0[167]X(M4%(I))[178].125
2150 [130]I:[141]2340:[129]I[178]1[164]76:[139]L(I)[178].5[167]2880
2160 [139]L(I)[178]5.375[167]2880
2170 [130]I:[141]3000:[137]1840
2340 [129]S[178]1[164]76:L(S)[178][165]L(S):[130]:[142]
2380 [129]M[178]1[164]64:[139]X(M)[177]0[167]2430
2390 X(M)[178]5:[141]13000:[153]"MY MOVE"[165]M(M):[137] 1330
2430 [130]M:[141]12000:[153]"IT'S A DRAWWAIT":[141]11020:[137]14000
2460 [129]K[178]1[164]72[169]4:P[178][181](L(K))[170][181](L(K[170]1))[170][181](L(K[170]2))[170][181](L(K[170]3))
2480 [139]P[178]4[176]P[178]9[167]2520
2490 [130]:[141]3000:[137]1990
2520 S[178].125
2530 [129]I[178]K[164]K[170]3:[137]2890
2550 [130]I:S[178]0:[137]2530
2780 Q[178]M1%(I):[139]X(Q)[178].125[167][137]17000
2782 Q[178]M2%(I):[139]X(Q)[178].125[167][137]17000
2784 Q[178]M3%(I):[139]X(Q)[178].125[167][137]17000
2786 Q[178]M4%(I):[139]X(Q)[178].125[167][137]17000
2850 [137]1330
2880 S[178].125
2890 [139]I[171][181](I[173]4)[172]4[177]1[167]2950
2930 Q[178]M1%(I):[139]X(Q)[178]S[167]2970
2940 Q[178]M4%(I):[139]X(Q)[178]S[167]2970
2945 [137]2550
2950 Q[178]M2%(I):[139]X(Q)[178]S[167]2970
2960 Q[178]M3%(I):[139]X(Q)[178]S[167]2970
2965 [137]2550
2970 X(Q)[178]5:[141]13000:[137]17050
3000 [129]I[178]1[164]64:X(I)[178][181](X(I)):[130]:[142]
4000 X[178]1:N[178](B[171]1)[172]16:[153]"":[139]B[178]2[176]B[178]4[167]X[178]X[170]12
4005 [139]B[178]3[176]B[178]4[167][153]"";
4010 [153][163]X);"BOARD";B:[153][163]X);"ORTAN=TAN=TAN=TAN^":[129]I1[178]N[164]N[170]12[169]4:[153][163]X);"(null)";
4020 [129]I2[178]1[164]4:[153][202](C$,X(I1[170]I2)[170]1,1);"(null)";:[130]:[153]
4030 [139]I1[178]N[170]12[167][153][163]X);"/TAN>TAN>TAN>TANEXP":[142]
4035 [153][163]X);"-TAN(null)TAN(null)TAN(null)TAN<":[130]
5000 [131]1,49,52,4,13,61,64,16,22,39,23,38,26,42,27,43
5010 [131]1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27
5020 [131]28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51
5030 [131]52,53,54,55,56,57,58,59,60,61,62,63,64
5040 [131]1,17,33,49,2,18,34,50,3,19,35,51,4,20,36,52,5,21,37,53,6,22,38,54,7,23
5050 [131]39,55,8,24,40,56,9,25,41,57,10,26,42,58,11,27,43,59,12,28,44,60,13,29
5060 [131]45,61,14,30,46,62,15,31,47,63,16,32,48,64,1,5,9,13,17,21,25,29,33,37,41
5070 [131]45,49,53,57,61,2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62
5075 [131]3,7,11,15
5080 [131]19,23,27,31,35,39,43,47,51,55,59,63,4,8,12,16,20,24,28,32,36,40,44,48
5090 [131]52,56,60,64,1,6,11,16,17,22,27,32,33,38,43,48,49,54,59,64,13,10,7,4,29
6000 [131]26,23,20,45,42,39,36,61,58,55,52,1,21,41,61,2,22,42,62,3,23,43,63,4,24
6010 [131]44,64,49,37,25,13,50,38,26,14,51,39,27,15,52,40,28,16,1,18,35,52,5,22
6020 [131]39,56,9,26,43,60,13,30,47,64,49,34,19,4,53,38,23,8,57,42,27,12,61,46,31
6030 [131]16,1,22,43,64,16,27,38,49,4,23,42,61,13,26,39,52
8000 [153]"";[163]W);"YOUR MOVE":[153][163]W);"PEEK(null)ATN(null)STR$WAIT "
8005 [153][163]W);:[133]" .CMDCMDCMD";C:B[178]C:[141]8500
8010 [153][163]W)"(null)(null)(null)WAIT ":[153][163]W);:[133]" .CMDCMDCMD";C:R[178]C:[141]8500
8020 [153][163]W)"LEN(null)(null)(null)(null)(null)WAIT":[153][163]W);:[133]" .CMDCMDCMD";C:[141]8500
8030 [139]PR[178]1[167][153][163]W);"GET IT RIGHT!":PR[178]0:[137]8000
8035 [153][163]W);" ":[142]
8500 [139]C[177]4[176]C[179]1[176]C[179][177][181](C)[167]PR[178]1
8510 [142]
11000 [139]B[178]0[167]11020
11010 [137]4000
11020 B[178][181]([165]M(M)[173]100):[137]4000
12000 [153]"";:[129]Q1[178]1[164]5:[153][163]W);" ":[130]:[153]"";[163]W);:[142]
13000 [153]"";:[129]Q1[178]1[164]5:[153][163]W);" ":[130]
13010 [153]"ONONONONON";[163]W);:[142]
14000 [161]A$:[139]A$[178]"S"[167][151]59468,12:[153]"LOAD":[137]18000
14005 [141]16000:[137]14000
15000 Y[178][181]([187](TI)[172]6[170]1):[145]Y[137]15010,15020,15030,15050,15060,15070
15010 [153]"RIGHT$'(null) (null)LEFT$RIGHT$(null)(null)RIGHT$(null)CHR$":[142]
15020 [153]"GOOD GAME,EH?":[142]
15030 [153]"RIGHT$'(null)(null) (null)(null)VALVALSTR$":[153][163]W);"(null)(null)CLOSE(null)(null)(null)(null)":[142]
15050 [153]"(null)LEFT$ATN(null)CLOSEATNPEEK(null)(null)(null) ":[153][163]W);"LANDER!!WAIT":[142]
15060 [153]"RIGHT$'(null)CLOSEATNCLOSEPEEKRIGHT$(null)CLOSE(null)(null)(null)(null)":[142]
15070 [153]"GETTING WORRIED":[142]
16000 B[178]0:M[178]M1%(I):X(M)[178]J[170]J1:[141]11020:M[178]M2%(I):X(M)[178]J[170]J1:[141]11020
16005 M[178]M3%(I):X(M)[178]J[170]J1:[141]11020
16010 M[178]M4%(I):X(M)[178]J[170]J1:[141]11020:[139]J1[178]0[167]J1[178]5:[142]
16020 J1[178]0:[142]
17000 X(Q)[178]5:[139]L[179]5[167]17040
17020 [141]13000:[153]"GET OUT OF THIS":[137]17050
17040 [141]13000:[153]"JUST IN TIME"
17050 [153][163]W);"MY MOVE";[165]M(Q):M[178]Q:[141]11020:[137]1330
18000 [128]